home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / obero / OberonAModules.lha / XpkSubCalls.mod < prev    next >
Text File  |  1999-02-26  |  1KB  |  45 lines
  1. (*************************************************************************
  2.  
  3. :Program.    XpkSubCalls.mod
  4. :Contents.   Lib-Call-Interface-Module for XpkSub-libraries
  5. :Author.     Hartmut Goebel
  6. :Copyright.  Copyright © 1991 by Hartmut Goebel
  7. :Copyright.  May be free dirstibuted with the Xpk-Package
  8. :Copyright.  permission is given to be inlcuded with AmigaOberon
  9. :Language.   Oberon
  10. :Translator. Amiga Oberon V2.14
  11. :History.    V0.9, 11 Jan 1992 Hartmut Goebel [hG]
  12. :History.    V1.0, 04 Jun 1992 [hG]
  13. :History     Converted to Oberon-A by Morten Bjergstrøm 16/8/98
  14. :Date.       04 Jun 1992 09:32:10
  15. :EMail.      mbjergstroem@hotmail.com
  16.  
  17. *************************************************************************)
  18. (*
  19.  * Remark
  20.  * Since the sub libraries need the definitions, but not the
  21.  * calls, I decided to split the two parts for reasons of efficiency
  22.  * [hG]
  23.  *)
  24.  
  25. <*MAIN-*>
  26. <*STANDARD-*>
  27. MODULE [2] XpkSubCalls;
  28.  
  29. IMPORT
  30.   e  := Exec,
  31.   xs := XpkSubDefs;
  32.  
  33. VAR
  34.   subBase * : e.LibraryPtr;
  35.  
  36. PROCEDURE XpksPackerInfo  * [subBase,-30](): xs.XpkInfoPtr;
  37. PROCEDURE XpksPackChunk   * [subBase,-36](params[8]: xs.XpkSubParamsPtr): LONGINT;
  38. PROCEDURE XpksPackFree    * [subBase,-42](params[8]: xs.XpkSubParamsPtr);
  39. PROCEDURE XpksPackReset   * [subBase,-48](params[8]: xs.XpkSubParamsPtr): LONGINT;
  40. PROCEDURE XpksUnpackChunk * [subBase,-54](params[8]: xs.XpkSubParamsPtr): LONGINT;
  41. PROCEDURE XpksUnpackFree  * [subBase,-60](params[8]: xs.XpkSubParamsPtr);
  42.  
  43. END XpkSubCalls.
  44.  
  45.